home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / FTPDIR.func.1 next >
Encoding:
Text File  |  2000-03-14  |  950 b   |  50 lines
  1. G4C
  2. ; $VER: FTPDIR.func.1 Rev.014 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 150 20 ""
  4. WinType 00001000
  5. WinOnMouse 5 5
  6. Winout "NIL:"
  7. WinBackground IMAGE BG 0
  8.  
  9. xOnLoad
  10. GuiOpen #This
  11.  
  12. xOnOpen
  13. Update #This 1 "$*select1"
  14. select = $*select1
  15.  
  16. xTextIn 0 0 150 20 "" select "" 255
  17. GadID 1
  18. GadFont "xHelvetica.font" "11" 000
  19. *select1 = "$select"
  20. if $select != ""
  21.     LVUse "FTPDIR" 1
  22.     LVSearch "$*select1" CI first
  23.     if $$SEARCH.POS != ""
  24.         LVGO #$$lv.line
  25.         LVMulti ON
  26.         SetVar count "1"
  27.         while $$SEARCH.POS != ""
  28.             LVSearch "$*select1" CI next
  29.             if $$lv.line != ""
  30.                 LVGO #$$lv.line
  31.                 LVMulti ON
  32.                 COUNTER count INC 1
  33.             endif
  34.         endwhile
  35.         COUNTER count DEC 1
  36.         LVGO First
  37.         LVMulti OFF
  38.     endif
  39. endif
  40. GuiClose #This
  41. if $count = 1
  42.     Update "Infobar" 1 "Es wurde $count Eintrag selektiert"
  43. elseif $count = ""
  44.     Update "Infobar" 1 "Es wurden keine Einträge selektiert"
  45. else
  46.     Update "Infobar" 1 "Es wurden $count Einträge selektiert"
  47. endif
  48. GuiQuit #This
  49.  
  50.